%!PS 
/petal {
    newpath
    0 0 moveto
    -5 10 lineto
    -10 20 10 20 5 10 curveto
    5 10 lineto
    closepath
    0 setgray
    fill
} def 
20 20 translate
5 {
    petal 72 rotate
} repeat
showpage 
